home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh91a.d64
/
text 83-2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
17KB
|
573 lines
1 REM TEXTEDITOR TEXT 83-2
2 PRINT"[144][147])[191]E[146][218])?E[146][219]%[146][186]E[146][223]%[146][187]E[146][160]%[146][219][201][196]P[146]A[160])[146]F[165][223]E[146][223]P[146]B[166][146][160] [146]D1[146][223]E[146]";
3 PRINT"BH1[146][223][176][164][146][198]B*[198]B*Q[146][218]H[208][177][146]X%[146][218][169]CE[146][218])[146]DP[215][166][146][219]XP[210]":SYS 256*PEEK(648):
4 REMH/0C*@!"W!V9*4!"X*<H!V(,@,WK!@J&82X;4@AE@*@XR(AD*@A!@JAU@J<TB2@[,ARE$@)N
5 REM@BZTJR2Q49ZD$V2$439MX9VG42*J1!XH*<!"V(@4,V2$4@9EVBB5BBDVV24P@9VW!@&$R"*D
6 REM)@$&WZ*0:4@A9X)RV462)@B*A!@Z+@7"J?#"@7*JN#FH4*3H#"@!+D4(BH#"D4*"<#II@*08
7 [143]#I@/*@!"*!*:*:#&@@*^0#@K@V*2$S41?+@87B@+#@7"*E#*F4*BA#"H@+DZ4J7K#D4(*2#&
8 REMI@*^<#I+@* ;#@@'*)#"@@X<H.0LS )L!5R,)&2&@<A0ZS2A<"R$&R*B@!?IHF0MBI?UBI?U
9 REM!?F(*1Y"*Y*+Y?!&?(@P+H4(JC!.@+!Y@BBUBBAV@$)[H/0C,?J*<)*EDARARRRU!@,&)I*)
10 [143]A@$&)2N )?:*@!?*,@1E?,?ZJC)-*LAPBBBUB!@Y,)I**A@Y$)2(0B$@0H100)*9R?!.*D@S
11 [143]SE0A9)4\@9*TF))JZB!")$@!9))V*23K,@SLE04DA))[2:$ ]H/ 0(@0!V*F7!V;*P!"W*8:
12 [143]!X9!V,W;$V2$4>9IX4<C&$VI24>C9V4\=H100*2;!V*.J!WK*3!"X9VG,W$.V24P>9X$)X2"
13 [143]4$;C+H4(JC!.@+!Y@BBUBBAV@(0P$V2$4>*N0!)K*3!.**@H!)**?!)Y*C!.*Z*PZ*ZDFX)B
14 [143]52H8$H2FX,@CJ/X,2 , @J7;X2(H$D2B0,@C:OX,: 2"_4@1*_X$*ZZP"2GZ4@SL\02Z'<P!
15 [143]2E< /2%X<.2FC4@#S\0G2#4(@S\102#9<V2FC<WP2D<$W2$9<X2J$4@#SI0O2D4(@SS302$;
16 [143]<U2FD4@3SD0GSG9K)*D$A*C;!*S$E0)F)4A!))2&8<FAN))J:B!"),@!1)NT)):.@!)+,@1E
17 REM**<H!*S$E0*F@!*J<A*BA!*JSE0A*@!&*4A0*@!"*SE00*8X!V*.@!VI$V2$4>9MV4=3*3!"
18 REMV+H:4JCK!@+&!@BUBBBUA@$&V24P>9V7)V8\4$<C*@!")!)+*3!"**8H!)*&C!*9SE0A))2&
19 REM8$(#4A)F)2P($E)N):P(!))*):@Z!)N$)):.J!)K,@1E*SE@0))Y2?$$@S'30))*ZP!"))))
20 [143]Z@!*)F)R)ZJ8!)$,@9*TSE0A))!.V)*XJ@!.V)V;4BNH*J9"V<@Q,C)JVN:RJ!VI,:1EVD91
21 REMFRYB)!);$@9E*ZBAIVB]IVB]IVF\Y)!*))))YV!.)*C[!*S$#0^X)@J*>!@*X)@JBA!&@VX
22 POKE53280,9:POKE53281,0
23 DIM LV(8):DIMA$(300):DIMKF$(10):POKE53265,PEEK(53265) AND239
24 PRINTCHR$(14):CP=0:TY=1:GL=1:GR=0:PRINT"[147]"
25 PRINT" [155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
26 PRINT" [155] * * * * * [212][197][216][212][214][197][210][193][210][194][197][201][212][213][206][199] * * * * * [146]"
27 PRINTCHR$(14):GR=0:KO=0
28 FORX=1TO9:PRINT"[152] [146]":NEXT:POKE53265,PEEK(53265) OR16
29 INPUT"[203]OMMA ZULASSEN[J/N][146] J[157][157][157]";KO$:IFKO$="J"THENKO=1
30 INPUT" [199] [146]RAFIK[152] ODER [212] [146]EXT [212][157][157][157]";GR$
31 INPUT"[196]ATUM [212][212].[205][205].[202][202][202][202][146] [164][157][157][157]";IO$
32 IFGR$="G"THENGR=1
33 PRINT"[147]"CHR$(14):S=1
34 GOTO301
35 SYS49152:POKE53280,2:AK=1
36 REM *** "[197][196][201][212][207][210]" ***
37 REM ------
38 REM "A$(X)=[218]EILE X"
39 REM "EG$ =EINGELESENES [218]EICHEN"
40 REM "B$ =AKTUELLER [215]ERT DER [218]EILE"
41 REM "X =[218]AEHLVARIABLE F. [218]EILE"
42 REM "LEFT$=LINK.[212]EIL BEI [193]ENDERUNG"
43 REM "RIGHT=RECH.[212]EIL BEI [193]ENDERUNG"
44 REM"[208]OS =[218]AEHLVARI.FUER LEFT$"
45 REM
46 REM--------------------------------
47 C$=" ":E=60:F=1:H=1:R=1:U=1:V=1:N=1:M=77:K=1:AB=1:KC=1:J=78:LC=0:DX=0
48 PRINT"[147]":POKE53280,2:IFDX=1THENGOTO302
49 GOSUB192
50 PRINT" "LF$" [146]":PRINT" [153] [211]EITE: [146] [155]"R" [218]EILEN: [146] "AB" BIS "AB+17
51 IFLC=0THENPRINT:GOTO57
52 PRINT""
53 IFAB>1THENPRINT
54 FORPM=HTOKC:PRINTA$(PM)"_":F=F+1-GR
55 IFF=20THENF=1:GOSUB192
56 NEXTPM
57 LC=0
58 FORN=ABTOE:V=LEN(A$(N))+U:W=M:P=0:F=F+1-GR:PRINTC$A$(N)"[170] [157][157]";
59 FORL=VTOM:
60 GETEG$:IFEG$=""THENPRINT" [157][157][157][157][157][167] [157][157][157][157][157]";:GOTO60
61 :
62 IFASC(EG$)=137THENM=M-1:C$=C$+" ":K=K+1:GOTO 206
63 IFASC(EG$)=138THENM=M+1:K=K-1:C$=LEFT$(C$,ABS(K)):GOTO 206
64 IFASC(EG$)=139THENJ=J-1:M=M-1:GOTO 206
65 IFASC(EG$)=140THENJ=J+1:M=M+1:GOTO 206
66 IFKO=0 AND EG$=","THENEG$="."
67 EG=ASC(EG$)
68 IFEG=13THENW=0:L=M:PRINT"_":GOTO76
69 IFEG=20ANDP>0THENP=P-1:B$=LEFT$(B$,P):EG$="":PRINT"[157]";:L=L-2:P=P-1:GOTO74
70 IFEG=133THENF=1:LC=1:AB=N:KC=N-1:GOTO301
71 IFEG=134THENF=1:LC=1:AB=N:KC=N-1:GOTO225
72 IFEG=135THENF=1:LC=1:AB=N:KC=N-1:GOTO117
73 B$=B$+EG$
74 PRINT"[155]"EG$"[170] [157][157]";:EG$=""
75 Q=L:LC=1
76 P=P+1:NEXTL
77 PRINT"_[155]":A$(N)=C$+A$(N)+B$:B$=""
78 IFW<M THENV=1:GOTO93
79 IFLEFT$(RIGHT$(A$(N),2),1)=RIGHT$(A$(N),1)THENPRINT:GOTO93
80 IF RIGHT$(A$(N),1)="."THENPRINT:GOTO93
81 IF RIGHT$(A$(N),1)=":"THENPRINT:GOTO93
82 IF RIGHT$(A$(N),1)=";"THENPRINT:GOTO93
83 IF RIGHT$(A$(N),1)="!"THENPRINT:GOTO93
84 IF RIGHT$(A$(N),1)="?"THENPRINT:GOTO93
85 IF RIGHT$(A$(N),1)=CHR$(32)THENPRINT:PRINT:GOTO93
86 IF RIGHT$(A$(N),1)="-"THENPRINT:GOTO93
87 PRINT"[145]"
88 L$=A$(N):G=LEN(L$)-1
89 IF RIGHT$(A$(N),1)=CHR$(32)THENGOTO92
90 A$(N+1)=RIGHT$(A$(N),1)+A$(N+1):A$(N)=LEFT$(A$(N),G):G=G-1:IFG=-1THENGOTO92
91 PRINT"[145]"TAB(G+1)" ":GOTO88
92 PRINT
93 IFF=20THENF=1:AB=N+1:KC=N:H=H+20:GOTO48
94 PRINT"[145][145]":NEXT
95 POKE198,0:IFN>299THENGOTO109
96 PRINT"[155] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][155] [175][146]"
97 PRINT"":FORX=1TO80:PRINT"-";:NEXT:PRINT"[145]"TAB(50)" [208][210][197][211][211] [198] 1 [146][155]"
98 GETEG$:IFEG$=""THENGOTO100
99 IFASC(EG$)=133THENGOTO105
100 EG$=""
101 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164] [197] N D E D E R [211] E I T E [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
102 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
103 FORX=0TO350:NEXT
104 GOTO96
105 POKE198,0
106 AB=N:KC=N:H=R*60:F=1
107 R=R+1:E=E+60
108 GOTO48
109 :
110 PRINT"[147]"
111 SYS49339
112 PRINTCHR$(14);"[197]NDE DER [211]EITE [206]R.5":PRINT"<[196]RUECKE [198]1>"
113 GETEG$:IFEG$=""THENGOTO113
114 IFASC(EG$)<>133THENGOTO113
115 DX=1
116 GOTO304
117 SYS49339
118 PRINT"[147]";CHR$(14)
119 PRINT"[147]":C=1
120 PRINTTAB(18)"[196][201][211][203]"
121 PRINT""TAB(13)" [196]ISKBEFEHL [146]"
122 PRINT""TAB(13)" [196]ISKINHALT "
123 GETBB$:IFBB$=""THEN123
124 IFBB$=""THENC=2:GOTO128
125 IFBB$="[145]"THENC=1:GOTO121
126 IFASC(BB$)=13THEN131
127 GOTO123
128 PRINT""TAB(13)" [196]ISKBEFEHL "
129 PRINT""TAB(13)" [196]ISKINHALT [146]"
130 GOTO123
131 IFC=2THENGOTO160
132 PRINT""TAB(13)" [204]OESCHEN [146]"
133 PRINT""TAB(13)" [198]ORMATIEREN "
134 GETBB$:IFBB$=""THEN134
135 IFBB$=""THENC=2:GOTO139
136 IFBB$="[145]"THENC=1:GOTO132
137 IFASC(BB$)=13THEN142
138 GOTO134
139 PRINT""TAB(13)" [204]OESCHEN "
140 PRINT""TAB(13)" [198]ORMATIEREN [146]"
141 GOTO134
142 IFC=2THEN152
143 INPUT"[152] [206]AME ";F$
144 F$="S:"+F$
145 :
146 OPEN1,8,15
147 CLOSE1
148 IF(ST AND -128)<>0THEN PRINT" [196]ISKFEHLER[146][152]":POKE198,0:WAIT198,1:GOTO146
149 OPEN1,8,15,F$
150 CLOSE1
151 POKE198,0:PRINT"[147]":SYS49152:GOTO48
152 INPUT"[152] [206]AME ";F$:INPUT" [201][196] ";I$
153 F$="N:"+F$+","+I$
154 OPEN1,8,15
155 CLOSE1
156 IF(ST AND -128)<>0THEN PRINT" [196]ISKFEHLER[146][152]":POKE198,0:WAIT198,1:GOTO154
157 OPEN1,8,15,F$
158 CLOSE1
159 POKE198,0:PRINT"[147]":SYS49152:GOTO48
160 REM ***DIRECTORY***
161 PRINTCHR$(147):PRINT"[147][153][196]ISKETTENINHALT:"
162 PRINT"---------------"
163 PRINT"[152]":BA$="":BB$="":CC$="":CC=0
164 OPEN1,8,0,"$0"
165 GET#1,BA$:GET#1,BB$
166 GET#1,BA$:GET#1,BB$
167 GET#1,BA$:GET#1,BB$
168 IFBA$<>""THENCC=ASC(BA$)
169 IFBB$<>""THENCC=CC+ASC(BB$)*256
170 PRINT"[152]"MID$(STR$(CC),2);TAB(8);
171 GET#1,BB$:IFST<>0THEN179
172 IFBB$<>CHR$(34)THEN171
173 GET#1,BB$:IFBB$<>CHR$(34)THENPRINTBB$;:GOTO173
174 GET#1,BB$:IFBB$=CHR$(32)THEN174
175 PRINTTAB(30);:CC$=""
176 CC$=CC$+BB$:GET#1,BB$:IFBB$<>""THEN176
177 PRINT"["LEFT$(CC$,3)"]"
178 IFST=0THEN166
179 PRINT"[158][194][204][207][195][203][211] [198][210][197][197]":CLOSE1
180 POKE198,0:WAIT198,1:POKE198,0
181 PRINT"[147]":SYS49152:GOTO48
182 PRINT"[147]"
183 INPUT"[158][211]IND [211]IE SICHER [J/N] ? J[144][157][157][157]";GG$
184 IFGG$="N"THENPRINT"[147]":GOTO306
185 PRINT"[155][196]ATEI '"LF$
186 PRINT"WIRD GELOESCHT !":LF$=""
187 FORX=0TO300:A$(X)="":NEXT:TY=1:KR=0:GOTO24
188 PRINT"[145]"TAB(60)"12345678901234567890[145]"
189 IFJ>78THENJ=78:M=M-1
190 IF(J-1)<KTHENJ=K:M=M+1
191 PRINT"[145]"TAB(J)"[167][164]"
192 IFK<0THENK=0
193 PRINT"[152][147]":GOSUB218
194 IF(K+1)>JTHENK=K-1:F=F-1:M=M+1:C$=C$-" "
195 PRINT"[152]"TAB(0);
196 PRINT"123456789012345678901234567890123456789012345678901234567890"
197 PRINT"[145]"TAB(60)"12345678901234567890[145]"
198 IFJ>78THENJ=78:M=M-1
199 IF(J-1)<KTHENJ=K:M=M+1
200 PRINT"[145]"TAB(J)"[167][164]"
201 IFK<0THENK=0
202 PRINT""TAB(K-1)"[164][165]"
203 F=F+1:RETURN
204 FORL=1TON:PRINTA$(L):NEXT
205 PRINT"123456789012345678901234567890123456789012345678901234567890"
206 LC=1:EG$="":AB=N:KC=N-1:F=1:GOSUB218
207 IF(K+1)>JTHENK=K-1:M=M+1:C$=C$-" "
208 PRINT"[152]"TAB(0);
209 PRINT"123456789012345678901234567890123456789012345678901234567890"
210 PRINT"[145]"TAB(60)"1234567890123456789[145]"
211 IFJ>78THENJ=78:M=M-1
212 IF(J-1)<KTHENJ=K:M=M+1
213 PRINT""TAB(J)"[167][164]"
214 IFK<1THENK=1:M=M-1:C$=C$+" "
215 PRINT""TAB(K-1)"[164][165]"
216 GOTO50
217 REM
218 REM ***"[200][201][204][198][197][204][197][201][211][212][197]"***
219 REM
220 PRINTCHR$(14):PRINT""TAB(40)" * * * [212] [197] [216] [212] [197] [196] [201] [212] [207] [210] * * * "
221 :
222 PRINT" [154] [198] 1 = [196][160][193][160][212][160][197][160][201] [146][221] [198][160]3 = [200] [201] [204] [198] [197]"
223 PRINT"[145]"TAB(46)" [146][221] [198] 5 = [196][160][201] [211][160][203] [146][144]"
224 RETURN
225 SYS49339
226 PRINT"[147]";CHR$(14)
227 PRINT"[200]ILFE - [205]ENUE"
228 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
229 IFT=1THENPRINT"[153][198]2 - [198]4 - [212]ABULATOR LINKER [210]AND -->"
230 IFT=4THENPRINT"[153][198]4 - [212]EXT VERSCHIEBEN -->"
231 IFT=1THENPRINT"[198]6 - [198]8 - [212]ABULATOR RECHTER [210]AND <--"
232 IFT=4THENPRINT"[198]6 - [212]EXT VERSCHIEBEN <--"
233 PRINT"[198] 1 - [196]ATEI BEARBEITEN"
234 PRINT"[198] 5 - [196]ISKBEFEHL SENDEN"
235 :
236 PRINT" 1.@ - [194]REITSCHRIFT DRUCKEN"
237 PRINT" 2.? - [194]REITSCHRIFT BEENDEN"
238 PRINT" 3.[195]OM + [212] - [213]NTERSTREICHEN"
239 PRINT" 4.[195]OM + + - [213]NTERSTREICHEN BEENDEN"
240 PRINT" 5.[195]OM + * - [198]ETTDRUCK"
241 PRINT" 6.[211]HIFT+\ - [198]ETTDRUCK BEENDEN"
242 PRINT" 7.[211]HIFT+5 - [150][206].[204].[209].[153]"
243 PRINT" 8.[211]HIFT+6 - [196]RAFT"
244 PRINT" 7. _ - [212]IEFZEICHEN"
245 PRINT" 8. ^ - [212]IEFZ. LOESCHEN"
246 PRINT"[154] [210]EIHENFOLGE DER [196]RUCKERCODES BEACHTEN![155]"
247 PRINT"[153] [201]M [199]RAFIKMODUS [206].[204].[209]. EINSTELLEN ![155]"
248 POKE198,0:WAIT198,1:POKE198,0
249 PRINT"[147]";CHR$(142):SYS49152
250 IFUI=3GOTO434
251 GOTO48
252 PRINTCHR$(14)
253 PRINT"[147][196]ATEINAME : "LF$
254 PRINT" [215]OLLEN [211]IE DEN [206]AMEN AENDERN [J/N] ?"
255 GETS$:IFS$=""THEN255
256 IFS$="N"THENGOTO264
257 LF$="":PRINT" [198]ILENAME [^] [205]ENUE : [164]";
258 GETEG$:K=LEN(LF$):IFEG$=""THENGOTO258
259 IFEG$="^"THENGOTO302
260 IF(EG$=CHR$(20) ANDK>0)THENPRINT"[157][157] [157][157][164]";:LF$=LEFT$(LF$,K-1):GOTO258
261 IFEG$=CHR$(20)THENGOTO258
262 IFEG$=CHR$(13)THENGOTO264
263 PRINT"[157]"EG$"[164]";:LF$=LF$+EG$:EG$="":IFLEN(LF$)<12THENGOTO258
264 L$=LF$+".TXT,S,W":K$=LF$+".TXT,S,R"
265 OPEN2,8,15
266 OPEN1,8,2,K$
267 INPUT#2,EN,E$,ET,ES:IFEN<>0THENCLOSE1:CLOSE2:GOTO269
268 PRINT:PRINT"[150][196]ATEI LOESCHEN ODER NEUEN [206]AMEN !":CLOSE1:CLOSE2:GOTO257
269 PRINT:PRINT"[196]ATEI '"LF$"' WIRD GESICHERT !":OPEN1,8,2,L$
270 PRINT#1,N:PRINT#1,E
271 FORO=1TO177
272 PRINT#1,A$(O)
273 NEXT
274 PRINT#1,"***":CLOSE1:GOTO302
275 PRINTCHR$(14)"[147][159]":IFTY>1THENPRINT" "TY"[157].[196]ATEI LADEN [J/N] ? [146]":POKE198,0
276 IFTY=1THENGOTO279
277 GETEG$:IFEG$=""THENGOTO277
278 IF(EG$="N" ORTY=11)THENGOTO302
279 GOSUB567:PRINT">> [196][193][212][197][201] LADEN <<"
280 PRINT"[155] [196]IRECTORY [$] [146]":PRINT" [205]ENUE [^] [146]"
281 INPUT" [196]ATEINAME :";KF$(TY):LF$=LF$+" / ":IFTY=1THENLF$=""
282 IFKF$(TY)="^"THENKF$(TY)="":GOTO302
283 LF$=LF$+KF$(TY):M$=KF$(TY)+".TXT,S,R"
284 OPEN1,8,15
285 CLOSE1
286 IF(ST AND -128)=0THENGOTO289
287 IF(ST AND -128)<>0THENPRINT"[150] [198]LOPPY ANSCHALTEN ![146]"
288 PRINT"[153] [196]RUECKE [212]ASTE [146][155]":POKE198,0:WAIT198,1:POKE198,0:GOTO284
289 OPEN1,8,15:IFKF$(TY)="$"THENCLOSE1:GOTO545
290 K$="0:"+M$:OPEN2,8,2,K$:INPUT#1,EN,E$,ET,ES:IFEN=0THENCLOSE2:CLOSE1:GOTO292
291 CLOSE2:CLOSE1:PRINT"[150]"E$:GOTO281
292 PRINT" [204]OADING --> [158]"KF$(TY):OPEN1,8,2,M$
293 INPUT#1,N:INPUT#1,E
294 FORO=GLTO300
295 INPUT#1,A$(O)
296 IFA$(O)="***"THENA$(O)="":GOTO300
297 A$(O)=C$+A$(O)
298 NEXT
299 IFGL+N>300THENPRINT"[150] [193]CHTUNG ! [211]PEICHER VOLL ![146]":CP=1:POKE198,0:WAIT198,1
300 CLOSE1:TY=TY+1:GL=GL+N:AB=N:KC=N-1:PRINT"[147]":GOTO302
301 REM MENUE
302 POKE198,0:POKE53265,PEEK(53265) AND239
303 SYS49339:AM=1:LV(AM)=1
304 PRINT"[147]"
305 :
306 PRINTCHR$(142)"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
307 PRINT"[145][221] * * * * * TEXTEDITOR T83-2[146][144] * * * * * [221]"
308 PRINT"[145][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
309 PRINT"DATUM: ";IO$:PRINT" F1[165][167][223][146]"
310 PRINT" [223][165][167]F3"
311 POKE53280,6:POKE53281,14:Z$(0)=" DATEI [146] "
312 Z$(1)=" EDITOR "
313 Z$(2)=" LOESCHEN "
314 Z$(3)=" LADEN "
315 Z$(4)=" AENDERN "
316 Z$(5)=" SICHERN "
317 Z$(6)=" DRUCKEN "
318 Z$(7)=" BEENDEN ":GOTO328
319 PRINTTAB(Z)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
320 PRINTTAB(Z)"[180] [170]"
321 PRINTTAB(Z)"[180]"Z$(0)"[170][144] [146]"
322 PRINTTAB(Z)"[180] [170][144] [146]"
323 PRINTTAB(Z)"[180]"Z$(T)"[170][144] [146]"
324 PRINTTAB(Z)"[180] [170][144] [146]"
325 PRINTTAB(Z)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][144] [146]"
326 PRINTTAB(Z)"[144] [146]"
327 RETURN
328 POKE53265,PEEK(53265) OR16:Z=2:L=1:T=1
329 PRINT"":GOSUB319
330 GOTO334
331 T=T+1:Z=Z+3:L=L+2:IFZ<2THENZ=2:L=1:T=1
332 IFZ>20THENZ=20:L=13:T=T-1
333 PRINT"":FORX=1TOL:PRINT:NEXT:GOSUB319
334 FORX=55338TO55346STEP2:POKEX,1:POKEX,0:NEXT
335 FORX=55365TO55373STEP2:POKEX,1:POKEX,0:NEXT
336 GETEG$:IFEG$=""THENGOTO334
337 IFEG$=""THENPRINT"":GOTO328
338 IFASC(EG$)=133THENGOTO331
339 IFASC(EG$)=134THENZ=Z-6:L=L-4:T=T-2:GOTO331
340 IFASC(EG$)=13THENGOTO342
341 GOTO334
342 PRINT"[147]"CHR$(14):POKE53280,12:POKE53281,0
343 IF(T=1 ANDKR<1)THENGOTO521
344 IFT=2THENGOTO182:REM LOESCHEN
345 IF(T=3 ANDCP=0)THENGOTO275:REM LADEN
346 IFT=4THENX=N:AB=X:AC=N:PRINT"[144]":SYS49152:GOTO 434
347 IFT=5THENA$(N+1)="***":GOTO252:REM SICHERN
348 IFT=6THENGOTO352:REM DRUCKEN
349 IFT=7THENPRINT"[147]":END:REM ENDE
350 IF(T=1 ANDKR=1)THENPRINT"[144]":SYS49152:GOTO48
351 GOTO302
352 REM *****DRUCKEN*****
353 POKE53265,PEEK(53265) AND239:PRINT"[147]"CHR$(14):POKE53280,9:POKE53281,0
354 XC=0:PRINT" [196]RUCKEN"
355 PRINT" -------"
356 PRINT" [193]USDRUCKEN ALLER [211]EITEN [193] [146]"
357 PRINT" [193]USDRUCK EINER [211]EITE [197] [146]":POKE53265,PEEK(53265) OR16
358 GET Y$:IFY$=""THEN358
359 IFY$="A"THENGOTO362
360 IFY$="E"THENGOTO399
361 GOTO358
362 PRINT"[150] [193] [146]"
363 OPEN1,4
364 PRINT#1,CHR$(13)
365 CLOSE1:POKE198,0
366 IF(ST AND -128)<>0THENPRINT"[150] [196]RUCKER ANSCHALTEN [146] [152]"
367 IF(ST AND-128)<>0THENPRINT" < [212]ASTE DRUECKEN >":WAIT198,1:GOTO352
368 :
369 PRINT" [196]RUCKE [211]EITE [206]R. "
370 PRINT" [193]BBRUCH [150] [197] [146]"
371 PRINT" [196]RUCKEN [150] [196] [146]"
372 GETQ$:IFQ$=""THEN372
373 IFQ$="E"THENCLOSE4:GOTO301
374 IFQ$="D"THEN376
375 GOTO372
376 PRINT" [196]RUCKE [211]EITE [206]R. "
377 XC=XC+1:POKE198,0
378 PRINT"[153] [157]"XC"[157] [146]"
379 OPEN4,4,7
380 FORX=XC*60-59TOXC*60:G$=LEFT$(A$(X),1)
381 IFX=178THENGOTO398
382 IFG$="@"THENGOSUB501:G$=LEFT$(A$(X),1)
383 IFG$="?"THENGOSUB503:G$=LEFT$(A$(X),1)
384 IFG$="[163]"THENGOSUB505:G$=LEFT$(A$(X),1)
385 IFG$="[166]"THENGOSUB507:G$=LEFT$(A$(X),1)
386 IFG$="[223]"THENGOSUB509:G$=LEFT$(A$(X),1)
387 IFG$="[169]"THENGOSUB511:G$=LEFT$(A$(X),1)
388 IFG$="%"THENGOSUB513:G$=LEFT$(A$(X),1)
389 IFG$="&"THENGOSUB515:G$=LEFT$(A$(X),1)
390 IFG$="_"THENGOSUB517:G$=LEFT$(A$(X),1)
391 IFG$="^"THENGOSUB519:GOTO393
392 IFGR=0THENPRINT#4
393 REM IFF=3THENA$(X)=RIGHT$(A$(X),LEN(A$(X))-1)
394 PRINT#4,A$(X):NEXT
395 IFPEEK(198)>0THENCLOSE4:GOTO301
396 IFXC=5THENCLOSE4:GOTO301
397 PRINT"[158] [211]EITE GEDRUCKT "
398 CLOSE4:GOTO372
399 PRINT"[150] [197] [146]":XC=1
400 OPEN1,4
401 PRINT#1,CHR$(13)
402 CLOSE1:POKE198,0
403 IF(ST AND -128)<>0THENPRINT"[150] [196]RUCKER ANSCHALTEN [146] [152]"
404 IF(ST AND-128)<>0THENPRINT" < [212]ASTE DRUECKEN >":WAIT198,1:GOTO352
405 INPUT" [215]ELCHE [211]EITE DRUCKEN 1[157][157][157]";XC:IFXC=0THEN301
406 IFXC=0THENCLOSE4:GOTO301
407 PRINT" [196]RUCKE [211]EITE [206]R. "
408 PRINT" [193]BBRUCH [150] [197] [146]"
409 PRINT" [196]RUCKEN [150] [196] [146]"
410 GETQ$:IFQ$=""THEN410
411 IFQ$="E"THENCLOSE4:PRINT"[147]":GOTO301
412 IFQ$="D"THEN414
413 GOTO410
414 POKE198,0
415 PRINT"[150] [157]"XC"[157] [146]"
416 OPEN4,4,7
417 FORX=XC*60-59TOXC*60
418 FORX=XC*60-59TOXC*60
419 G$=LEFT$(A$(X),1)
420 IFG$="@"THENGOSUB501:G$=LEFT$(A$(X),1)
421 IFG$="?"THENGOSUB503:G$=LEFT$(A$(X),1)
422 IFG$="[163]"THENGOSUB505:G$=LEFT$(A$(X),1)
423 IFG$="[166]"THENGOSUB507:G$=LEFT$(A$(X),1)
424 IFG$="[223]"THENGOSUB509:G$=LEFT$(A$(X),1)
425 IFG$="[169]"THENGOSUB511:G$=LEFT$(A$(X),1)
426 IFG$="%"THENGOSUB513:G$=LEFT$(A$(X),1)
427 IFG$="&"THENGOSUB515:G$=LEFT$(A$(X),1)
428 IFG$="_"THENGOSUB517:G$=LEFT$(A$(X),1)
429 IFG$="^"THENGOSUB519:GOTO431
430 IFGR=0THENPRINT#4
431 PRINT#4,A$(X):NEXT
432 IFPEEK(198)>0THENCLOSE4:GOTO352
433 CLOSE4:GOTO405
434 REM ***AENDERN***
435 PRINTCHR$(147);CHR$(14):ZZ=0:CD=0:CE=0:CF=0:UI=0:KP=0
436 PRINT"[147][155] [198]1 - [196] A T E I [221] [198]3 - [197]INFUE"
437 PRINT"[145]"TAB(36)"GEN [221] [198]5 - [197]NTFERNEN [221] [198]2 - [200]ILFE [146]"
438 FORLF=1TO15
439 FORG=1TO20
440 PRINTA$(G+ZZ)
441 NEXTG:IFKP=1THENPRINT""
442 ZZ=ZZ+20:KP=1
443 REM * * * * * * * * * * * * * *
444 PRINT""
445 PRINT"[155][175][157]";
446 CD=CD+1
447 IFCD=21THENCF=CF+20:CD=0:NEXT
448 GETW$:IFW$=""THEN448
449 IFW$=""THENZZ=ZZ-20:CD=0:PRINT"[147]":GOTO439
450 CE=CE+1
451 IFCE>LEN(A$(CD+CF))THENA$(CD+CF)=A$(CD+CF)+" "
452 IFW$=""THENPRINTMID$(A$(CD+CF),CE,1):CE=0:GOTO445
453 IFW$="[145]"THENPRINTMID$(A$(CD+CF),CE,1)"[145][145]":CE=0:CD=CD-2:GOTO445
454 IFW$=""THENW$=MID$(A$(CD+CF),CE,1)
455 IFW$="[157]"THENPRINTMID$(A$(CD+CF),CE,1)"[157][157][175][157]";:CE=CE-2:GOTO448
456 IF ASC(W$)=134THENGOTO473
457 IF ASC(W$)=135THENGOTO488
458 :
459 IF ASC(W$)=137THENUI=3:GOTO225
460 IF ASC(W$)=138THENGOTO531
461 IF ASC(W$)=139THENGOTO538
462 IF ASC(W$)=13THENPRINTMID$(A$(CD+CF),CE,1):CE=0:GOTO445
463 IF ASC(W$)=133THENGOTO301
464 IFCE=79THENPRINTMID$(A$(CD+CF),CE,1):CE=0:GOTO445
465 PRINTW$"[175][157]";
466 IFCE=1THENA$(CD+CF)=W$+RIGHT$(A$(CD+CF),LEN(A$(CD+CF))-1):GOTO448
467 HJ=CD+CF:KL$=""
468 KL$=LEFT$(A$(HJ),CE-1)
469 KL$=KL$+W$
470 KL$=KL$+RIGHT$(A$(HJ),LEN(A$(HJ))-CE)
471 A$(HJ)=KL$
472 GOTO448
473 AC=AC+1:REM ZEILE EINFUEGEN
474 IFCD+CF<59THENGOTO479
475 IFCD+CF<118THENGOTO482
476 IFCD+CF<177THENGOTO485
477 IFCD+CF<236THENGOTO1921
478 IFCD+CF<295THENGOTO1936
479 FORX=59TOCD+CFSTEP-1
480 A$(X)=A$(X-1):NEXT
481 GOTO434
482 FORX=118TOCD+CFSTEP-1
483 A$(X)=A$(X-1):NEXT
484 GOTO434
485 FORX=177TOCD+CFSTEP-1
486 A$(X)=A$(X-1):NEXT
487 GOTO434
488 AC=AC-1:REM ZEILE ENTFERNEN
489 IFCD+CF<59THENGOTO492
490 IFCD+CF<118THENGOTO495
491 IFCD+CF<177THENGOTO498
492 FORX=CD+CFTO59
493 A$(X)=A$(X+1):NEXT
494 GOTO434
495 FORX=CD+CFTO118
496 A$(X)=A$(X+1):NEXT
497 GOTO434
498 FORX=CD+CFTO176
499 A$(X)=A$(X+1):NEXT
500 GOTO434
501 PRINT#4,CHR$(14);:A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=3
502 RETURN
503 PRINT#4,CHR$(15);:A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0
504 RETURN
505 PRINT#4,CHR$(27);CHR$(45);CHR$(49);
506 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
507 PRINT#4,CHR$(27);CHR$(45);CHR$(48);
508 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
509 PRINT#4,CHR$(27);CHR$(69);
510 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
511 PRINT#4,CHR$(27);CHR$(70);
512 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
513 PRINT#4,CHR$(31);
514 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
515 PRINT#4,CHR$(159);
516 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
517 PRINT#4,CHR$(27);CHR$(83);CHR$(49);
518 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
519 PRINT#4,CHR$(27);CHR$(84);
520 A$(X)=" "+RIGHT$(A$(X),LEN(A$(X))-1):F=0:RETURN
521 PRINT"[147] "
522 PRINT" [196]ATEINAME "
523 PRINT" [146]"
524 L=13:JK$="":PRINT""TAB(L+1)"[164]":GOTO526
525 PRINT""TAB(L)JK$"[164]":JK$=""
526 GETJK$:IFJK$=""THEN526
527 L=L+1:IFL>29THENL=29
528 IFJK$=CHR$(13)THENKR=1:PRINT"[144][147]":SYS49152:GOTO35
529 LF$=LF$+JK$
530 GOTO525
531 REM TEXT -->
532 FORX=1TOE
533 LU=LEN(A$(X)):IFLU<2THENGOTO536
534 IFLU>79THENGOTO536
535 A$(X)=" "+A$(X)
536 NEXT
537 GOTO434
538 REM TEXT <--
539 FORX=1TOE
540 LU=LEN(A$(X)):IFLU<2THENGOTO543
541 IF LEFT$(A$(X),1)<>CHR$(32)THENGOTO543
542 A$(X)=RIGHT$(A$(X),LU-1)
543 NEXT
544 GOTO434
545 IFTY=1THENLF$=""
546 IFTY>1THENLF$=LEFT$(LF$,(LEN(LF$)-4))
547 PRINTCHR$(147):PRINT"[147][153][196]ISKETTENINHALT:"
548 PRINT"---------------":PRINT"[155]":BA$="":BB$="":CC$="":CC=0
549 OPEN1,8,0,"$0"
550 GET#1,BA$:GET#1,BB$
551 GET#1,BA$:GET#1,BB$
552 GET#1,BA$:GET#1,BB$
553 IFBA$<>""THENCC=ASC(BA$)
554 IFBB$<>""THENCC=CC+ASC(BB$)*256
555 PRINT"[152]"MID$(STR$(CC),2);TAB(8);
556 GET#1,BB$:IFST<>0THEN564
557 IFBB$<>CHR$(34)THEN556
558 GET#1,BB$:IFBB$<>CHR$(34)THENPRINTBB$;:GOTO558
559 GET#1,BB$:IFBB$=CHR$(32)THEN559
560 PRINTTAB(30);:CC$=""
561 CC$=CC$+BB$:GET#1,BB$:IFBB$<>""THEN561
562 PRINT"["LEFT$(CC$,3)"]"
563 IFST=0THEN551
564 PRINT"[158][194][204][207][195][203][211] [198][210][197][197]":CLOSE1
565 POKE198,0:WAIT198,1:POKE198,0
566 GOTO275
567 :
568 PRINT"[147] [155] [201]M [211]PEICHER [146][154]"
569 FORX=1TO13:PRINT" [146]":NEXT
570 PRINT""
571 FORX=1TO10:PRINTTAB(25)""KF$(X):NEXT
572 RETURN